CU Amiga Super CD-ROM 11/CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso/cucd/programming/oberonv4/source/system/amigaiffparse.mod

Oberon Text | 1996-06-02 | 8KB | 219 lines

Syntax20b.Scn.Fnt
ParcElems
Alloc
Syntax24b.Scn.Fnt
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
FoldElems
(* AMIGA *)
MODULE AmigaIFFParse; (* Ralf Degner 25.07.1995, OJ 30 Apr 96  *)
IMPORT
    SYSTEM, E:=AmigaExec;
    iffparseBase- : E.LibraryPtr;
    iffparseVersion- : INTEGER;
    termEntry : E.TermEntry;
CONST
    iffparseName*="iffparse.library";
    read*= {}; write*= {0}; rwBits*= read+write; fSeek*= {1}; rSeek*= {2};
    parseScan*= 0; parseStep*= 1; parseRawStep*= 2;
    sizeUnknown*= -1;
    IFFHandlePtr*= POINTER TO IFFHandle;
    IFFHandle*= RECORD
        stream*: LONGINT;
        flgas*: SET;
        depth*: LONGINT
    END;
    ContextNodePtr*= POINTER TO ContextNode;
    ContextNode*= RECORD(E.MinNode)
        id*: LONGINT;
        type*: LONGINT;
        size*: LONGINT;
        scan*: LONGINT
    END;
    StoredPropertyPtr*= POINTER TO StoredProperty;
    StoredProperty*= RECORD
        size*: LONGINT;
        data*: LONGINT
    END;
    IOClipReqPtr*= POINTER TO IOClipReq;
    IOClipReq*= RECORD
        device*: E.DevicePtr;
        unit*: LONGINT;
        command*: INTEGER;
        flags*: SHORTINT;
        error*: SHORTINT;
        actual*: LONGINT;
        length*: LONGINT;
        data*: LONGINT;
        offset*: LONGINT;
        clipID*: LONGINT
    END;
    ClipboardHandlePtr*= POINTER TO ClipboardHandle;
    ClipboardHandle*= RECORD
        cbport*: E.MsgPort;
        satisfyPort*: E.MsgPort
    END;
    CollectionItemPtr*= POINTER TO CollectionItem;
    CollectionItem*= RECORD
        next*: CollectionItemPtr;
        size*: LONGINT;
        data*: LONGINT
    END;
PROCEDURE -ReturnD0    04EH,05EH,  04EH,075H;
PROCEDURE AllocIFF*(): IFFHandlePtr;
BEGIN
    SYSTEM.CALL( -30, iffparseBase );
    ReturnD0
END AllocIFF;
PROCEDURE OpenIFF*(iff: IFFHandlePtr; modes: SET): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, modes );
    SYSTEM.CALL( -36, iffparseBase );
    ReturnD0
END OpenIFF;
PROCEDURE ParseIFF*(iff: IFFHandlePtr; control: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, control );
    SYSTEM.CALL( -42, iffparseBase );
    ReturnD0
END ParseIFF;
PROCEDURE CloseIFF*(iff: IFFHandlePtr);
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -48, iffparseBase )
END CloseIFF;
PROCEDURE FreeIFF*(iff: IFFHandlePtr);
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -54, iffparseBase )
END FreeIFF;
PROCEDURE ReadChunkBytes*(iff: IFFHandlePtr; buf, num: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 9, buf );
    SYSTEM.PUTREG( 0, num );
    SYSTEM.CALL( -60, iffparseBase );
    ReturnD0
END ReadChunkBytes;
PROCEDURE WriteChunkBytes*(iff: IFFHandlePtr; buf, num: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 9, buf );
    SYSTEM.PUTREG( 0, num );
    SYSTEM.CALL( -66, iffparseBase );
    ReturnD0
END WriteChunkBytes;
PROCEDURE PushChunk*(iff: IFFHandlePtr; type, id, size: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, type );
    SYSTEM.PUTREG( 1, id );
    SYSTEM.PUTREG( 2, size );
    SYSTEM.CALL( -84, iffparseBase );
    ReturnD0
END PushChunk;
PROCEDURE PopChunk*(iff: IFFHandlePtr): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -90, iffparseBase );
    ReturnD0
END PopChunk;
PROCEDURE PropChunk*(iff: IFFHandlePtr; type, id: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, type );
    SYSTEM.PUTREG( 1, id );
    SYSTEM.CALL( -114, iffparseBase );
    ReturnD0
END PropChunk;
PROCEDURE StopChunk*(iff: IFFHandlePtr; type, id: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, type );
    SYSTEM.PUTREG( 1, id );
    SYSTEM.CALL( -126, iffparseBase );
    ReturnD0
END StopChunk;
PROCEDURE CollectionChunk*(iff: IFFHandlePtr; type, id: LONGINT): LONGINT;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, type );
    SYSTEM.PUTREG( 1, id );
    SYSTEM.CALL( -138, iffparseBase );
    ReturnD0
END CollectionChunk;
PROCEDURE FindProp*(iff: IFFHandlePtr; type, id: LONGINT): StoredPropertyPtr;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, type );
    SYSTEM.PUTREG( 1, id );
    SYSTEM.CALL( -156, iffparseBase );
    ReturnD0
END FindProp;
PROCEDURE FindCollection*(iff: IFFHandlePtr; type, id: LONGINT): CollectionItemPtr;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.PUTREG( 0, type );
    SYSTEM.PUTREG( 1, id );
    SYSTEM.CALL( -162, iffparseBase );
    ReturnD0
END FindCollection;
PROCEDURE FindPropContext*(iff: IFFHandlePtr): ContextNodePtr;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -168, iffparseBase );
    ReturnD0
END FindPropContext;
PROCEDURE CurrentChunk*(iff: IFFHandlePtr): ContextNodePtr;
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -174, iffparseBase );
    ReturnD0
END CurrentChunk;
PROCEDURE ParentChunk*(contextNode: ContextNodePtr): ContextNodePtr;
BEGIN
    SYSTEM.PUTREG( 8, contextNode );
    SYSTEM.CALL( -180, iffparseBase );
    ReturnD0
END ParentChunk;
PROCEDURE InitIFFasDOS*(iff: IFFHandlePtr);
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -234, iffparseBase )
END InitIFFasDOS;
PROCEDURE InitIFFasClip*(iff: IFFHandlePtr);
BEGIN
    SYSTEM.PUTREG( 8, iff );
    SYSTEM.CALL( -240, iffparseBase )
END InitIFFasClip;
PROCEDURE OpenClipboard*(unit: LONGINT): ClipboardHandlePtr;
BEGIN
    SYSTEM.PUTREG( 0, unit );
    SYSTEM.CALL( -246, iffparseBase );
    ReturnD0
END OpenClipboard;
PROCEDURE CloseClipboard*(clipHan: ClipboardHandlePtr);
BEGIN
    SYSTEM.PUTREG( 8, clipHan );
    SYSTEM.CALL( -252, iffparseBase )
END CloseClipboard;
PROCEDURE Init;
TYPE LibraryPtr=POINTER TO E.Library;
VAR lib:LibraryPtr;
BEGIN
    iffparseBase:=E.OpenLibrary(iffparseName,37);
    IF iffparseBase=0 THEN HALT(99) END;
    lib:=SYSTEM.VAL(LibraryPtr,iffparseBase);
    iffparseVersion:=lib.version
END Init;
PROCEDURE Term;
BEGIN
    E.CloseLibrary( iffparseBase )
END Term;
BEGIN
    Init;
    E.Register(termEntry, Term);
END AmigaIFFParse.